home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / amislate / examplerexx / raster.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-05  |  566b  |  32 lines
  1. /* A test of the rastering system */
  2. parse arg CommandPort ActiveString
  3.  
  4. if (length(CommandPort) == 0) then do
  5.         say ""
  6.         say "Usage:  rx raster.rexx <REXXPORTNAME>"
  7.         say "        (REXXPORTNAME is usually AMISLATE)"
  8.         say ""
  9.         say "Or run from the Rexx menu within AmiSlate."
  10.         say ""
  11.         exit 0
  12.     end
  13.  
  14. address (CommandPort)
  15.  
  16. 'setraster 10 10 100 100 0'
  17. i = 0
  18. count = 0
  19.  
  20. do while (1) 
  21.     i = i + 1
  22.     count = count i + 1
  23.     if (count > 500) then exit
  24.     if (i > 6) then do
  25.         i = 1
  26.     end 
  27.  
  28.     'putrasterpixel 3 PEN 'i
  29.     'waitevent 1'
  30. end
  31.  
  32.